home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Misc / UAE / UAEWB.rexx < prev   
OS/2 REXX Batch file  |  1998-02-12  |  12KB  |  322 lines
  1. /*rx
  2.  * UAE.wb - A nice GUI for launching uae using MUIREXX
  3.  *
  4.  * (c) By Samuel Devulder, 01/98.
  5.  *
  6.  * $VER: UAEWB.rexx 0.2 (26.01.98) © by Samuel Devulder
  7.  *
  8.  * History: 
  9.  *   v0.1 (14.01.98): first try
  10.  *   v0.2 (26.01.98): adaptation to MUIRexx3.0 (too bad, scripts for
  11.  *                    MUIRexx2.0 are not fully compatible with MUIRexx3.0)
  12.  */
  13.  
  14. OPTIONS RESULTS
  15. ADDRESS COMMAND
  16.  
  17. /* Run MUIREXX */
  18. IF ~show('p','UAEWB') THEN DO
  19.    'run >nil: muirexx port UAEWB'
  20.    DO WHILE ~show('p','UAEWB')
  21.       'wait 1'
  22.    END
  23. END
  24.  
  25. ADDRESS UAEWB
  26.  
  27. WINDOW ID WAIT ATTRS 0x80421923 0 0x8042045d 0
  28.   LABEL "\033b\033cPlease wait\nwhile UAE is loading...\033n"
  29. ENDWINDOW
  30.  
  31. TRUE = 1
  32. FALSE = 0
  33. MUIA_Application_Title     = 0x804281b8
  34. MUIA_Application_Version   = 0x8042b33f
  35. MUIA_Application_Copyright = 0x8042ef4d
  36. MUIA_Application_Author    = 0x80424842
  37. MUIA_Application_Base      = 0x8042e07a
  38. MUIA_Application_OpenConfigWindow = 0x804299ba
  39. MUIA_Application_AboutMUI  = 0x8042d21d
  40. MUIA_Background            = 0x8042545b
  41. MUIA_Image_FreeHoriz       = 0x8042da84
  42. MUIA_Image_FontMatchWidth  = 0x804239bf
  43. MUIA_Image_FontMatchHeight = 0x804239c0
  44. MUIA_Width                 = 0x8042b59c
  45. MUIA_Image_FontMatch       = 0x8042815d
  46. MUIA_Image_FontMatchHeight = 0x80429f26
  47. MUIA_FixWidthTxt           = 0x8042d044
  48. MUIA_Weight                = 0x80421d1f
  49. MUIA_Pressed               = 0x80423535
  50. MUIA_ShowMe                = 0x80429ba8
  51. MUIA_Slider_Horiz          = 0x8042fad1
  52. MUIA_Slider_Min            = 0x8042e404
  53. MUIA_Slider_Max            = 0x8042d78a
  54. MUIA_Slider_Level          = 0x8042ae3a
  55. MUIA_Frame                 = 0x8042ac64
  56. MUIA_Screen_Accept         = 0x8042e3e1
  57. MUIA_Screen_MaxLen         = 0x80424984
  58. MUIA_List_Format           = 0x80423c0a
  59. MUIA_Cycle_Active          = 0x80421788
  60. MUIA_Menuitem_Shortcut     = 0x80422030
  61. MUIA_Menuitem_Title        = 0x804218be
  62. MUIA_Selected              = 0x8042654b
  63. MUIA_Disabled              = 0x80423661
  64. MUIA_Group_Columns         = 0x8042f416
  65. MUIA_ControlChar           = 0x8042120b
  66.  
  67. MUIV_Frame_Text = 3
  68. MUIV_Frame_Group = 9
  69.  
  70. MUII_BACKGROUND    = 128
  71. MUII_SHADOWFILL    = 133
  72. MUII_HSHADOWBACK   = 140
  73. MUII_HSHADOWSHADOW = 142
  74. WINDOW ID MAIN COMMAND """QUIT""" PORT UAEWB TITLE """UAE Launcher"""
  75.  
  76.   MENU LABEL "Project"
  77.     MENU LABEL "About"
  78.          ITEM COMMAND '"UAEWB.aux about"',
  79.              ATTRS MUIA_Menuitem_Shortcut 'A',
  80.              LABEL "UAE"
  81.          ITEM COMMAND '"method 'MUIA_Application_AboutMUI' 0"',
  82.              ATTRS MUIA_Menuitem_Shortcut 'M',
  83.              PORT UAEWB LABEL "MUI"
  84.     ENDMENU
  85.     MENU LABEL "Settings"
  86.          ITEM COMMAND '"UAEWB.aux a500"'    LABEL "Preset to A500"
  87.          ITEM COMMAND '"UAEWB.aux HAM"'     LABEL "Set output to HAM6"
  88.          ITEM ATTRS MUIA_Menuitem_Title '-1'
  89.          ITEM COMMAND '"UAEWB.aux default"' LABEL "Reset to default"
  90.          ITEM COMMAND 'ENV:UAEWB'           LABEL "Reset to last saved"
  91.          ITEM ATTRS MUIA_Menuitem_Title '-1'
  92.          ITEM COMMAND '"method 'MUIA_Application_OpenConfigWindow'"',
  93.               PORT UAEWB LABEL "MUI..."
  94.     ENDMENU
  95.     ITEM ATTRS MUIA_Menuitem_Title '-1'
  96.     ITEM COMMAND '"quit"' PORT UAEWB ATTRS MUIA_Menuitem_Shortcut 'Q',
  97.          LABEL "Quit"
  98.   ENDMENU
  99.  
  100.   /* Presentation txt */
  101.   TEXT ATTRS MUIA_Frame MUIV_Frame_Group MUIA_Background MUII_HSHADOWSHADOW,
  102.        LABEL "\0338\033c\033bUAE Launcher v0.2\033n",
  103.              "\n© by Samuel Devulder, 01/98."
  104.  
  105.   SPACE 
  106.  
  107.   /* Main group */
  108.   GROUP REGISTER LABELS "Display,Memory,Disks,Sound,Misc"
  109.     /* DISPLAY */
  110.     GROUP FRAME LABEL "Gfx Setup"
  111.       GROUP HORIZ
  112.         LABEL "Size:"
  113.         CYCLE ID SIZE,
  114.               HELP """LORES makes UAE use a 320x256 window "||,
  115.                      "(\033ifast and good for games\033n)\n"||,
  116.                      "HIRES makes UAE use a 640x512 window "||,
  117.                      "(\033igood for Workbench\033n)""",
  118.               LABELS "LORES,HIRES"
  119.         LABEL "Screen:"
  120.         CYCLE ID SCRN,
  121.               HELP """PUBLIC => Workbench output\n"||,
  122.                      "ASLREQ => ASL-Requester selection\n"||,
  123.                      "DEFSCR => Automatically Selected screen\n"||,
  124.                      "ModeID => ModeID and Depth below define screen.""",
  125.               LABELS "PUBLIC,ASLREQ,DEFSCR,ModeID"
  126.       ENDGROUP
  127.       GROUP HORIZ
  128.         LABEL "ModeID:"
  129.         STRING ID SM,
  130.                HELP """Enter the screen mode you want UAE to use.\n"||,
  131.                       "(format 0xNNNNNNNN).""",
  132.                PORT UAEWB COMMAND """CYCLE ID SCRN ATTRS 0x80421788 3"""
  133.         LABEL "Depth:"
  134.         CYCLE ID DEPTH,
  135.               HELP """Select the depth of UAE's screen. (\033iUse\n"||,
  136.                      "this in conjunction with ModeID\033n)""",
  137.               PORT UAEWB COMMAND """CYCLE ID SCRN ATTRS 0x80421788 3""",
  138.               ATTRS MUIA_Weight 1,
  139.               LABELS "N/A,1,2,3,4,5,6,7,8,15,16,24,32"
  140.       ENDGROUP
  141.       GROUP HORIZ
  142.         LABEL "Frame Rate:"
  143.         SLIDER ID SLDR,
  144.                HELP """Use this slider gadget to select the frame rate\n"||,
  145.                       "(\033ithe lower, the smoother the display will "||,
  146.                       "be\033n).""",
  147.                MUIA_Slider_Horiz TRUE MUIA_Slider_Min 1 MUIA_Slider_Max 20
  148.       ENDGROUP
  149.       GROUP HORIZ
  150.         SPACE HORIZ
  151.         LABEL "Gray scale:"
  152.         CHECK ID GRAY,
  153.           HELP """Make UAE use a gray output\n(\033iusefull for WB with few"||,
  154.                  " colors\033n)"""
  155.         SPACE HORIZ
  156.         LABEL "Dithering:";
  157.         CHECK ID DITH ATTRS MUIA_Selected TRUE,
  158.           HELP """If activated, UAE will use dithering to approximate "||,
  159.                  "colors.\n(\033idisable this if you want to emulate "||,
  160.                  "WB-based programs\nor to gain some speed\033n)"""
  161.         SPACE HORIZ
  162.       ENDGROUP
  163.     ENDGROUP
  164.     /* MEMORY */
  165.     GROUP
  166.       GROUP HORIZ FRAME ATTRS MUIA_Group_Columns 4 LABEL "RAM" 
  167.         LABEL "ChipRam:"
  168.         CYCLE ID CHIP,
  169.           ATTRS MUIA_Cycle_Active 2,
  170.           HELP """Select the amount of ChipRam UAE will emulate\n"||,
  171.                  "(\033i2Mb max if FASTRAM is used\033n).""",
  172.           LABELS "512 Kb,1 Mb,2 Mb,4 Mb,8 Mb"
  173.         LABEL "SlowFast:"
  174.         CYCLE ID SLOW,
  175.           HELP """Select the amount of FASTRAM size that UAE\n"||,
  176.                  "will emulate at 0xC00000.""",
  177.           LABELS "None,512 Kb,1024 Kb"
  178.         LABEL "FastRam:"
  179.         CYCLE ID FAST,
  180.           HELP """Select the amount of 32bit FASTRAM that UAE\n"||,
  181.                  "will emulate at 0x200000.""",
  182.           LABELS "None,1 Mb,2 Mb,3 Mb,4 Mb,5 Mb,6 Mb,7 Mb,8 Mb"
  183.         LABEL "ZorroIII: "
  184.         GROUP HORIZ
  185.           POPSLIDER ID Z3RAM,
  186.             ATTRS MUIA_Slider_Level 0 MUIA_Slider_Min 0 MUIA_Slider_Max 64,
  187.             HELP """Select the amount of 32bit Zorro-III\nram UAE will "||,
  188.                    "emulate."""
  189.           LABEL "Mb"
  190.           SPACE HORIZ
  191.         ENDGROUP
  192.       ENDGROUP
  193.       GROUP HORIZ FRAME LABEL "ROM"
  194.         LABEL "Romfile:"
  195.         POPASL ID ROMF HELP """Enter the romfile UAE will use.""",
  196.                CONTENT "DEVS:Kickstarts/"
  197.       ENDGROUP
  198.     ENDGROUP
  199.     /* DISKS */
  200.     GROUP
  201.       GROUP HORIZ FRAME ATTRS MUIA_Group_Columns 4 LABEL "Diskfiles" 
  202.         LABEL "DF0:"
  203.         POPASL ID DF0 HELP """Enter the diskfile for emulating DF0:"""
  204.         LABEL "DF1:"
  205.         POPASL ID DF1 HELP """Enter the diskfile for emulating DF1:"""
  206.         LABEL "DF2:"
  207.         POPASL ID DF2 HELP """Enter the diskfile for emulating DF2:"""
  208.         LABEL "DF3:"
  209.         POPASL ID DF3 HELP """Enter the diskfile for emulating DF3:"""
  210.       ENDGROUP
  211.       GROUP HORIZ ATTRS MUIA_Group_Columns 2
  212.         LABEL "Volume 1:"
  213.         STRING ID VMOU1 HELP """Enter the first volume UAE will mount\n"||,
  214.                                "(format: <UAE Name>:<Amiga path>)\n"||,
  215.                                "\033iUse Misc/Extra param to mount more "||,
  216.                                "than\n3 volumes\033n."""
  217.         LABEL "Volume 2:"
  218.         STRING ID VMOU2 HELP """Enter the second volume UAE will use\n"||,
  219.                                "(format: <UAE Name>:<Amiga path>)\n"||,
  220.                                "\033iUse Misc/Extra param to mount more "||,
  221.                                "than\n3 volumes\033n."""
  222.       ENDGROUP
  223.     ENDGROUP
  224.     /* SOUND */
  225.     GROUP HORIZ FRAME LABEL "Audio Setup"
  226.       SPACE HORIZ
  227.       GROUP HORIZ ATTRS MUIA_Group_Columns 2 muia_weight 400
  228.         LABEL "Sound:"
  229.         CYCLE ID SOUND,
  230.               HELP """NONE => No sound\n"||,
  231.                      "OFF  => Emulated but no output\n"||,
  232.                      "ON   => Emulated\n"||,
  233.                      "BEST => Accurate emulation (\033iCPU power
  234.                      needed\033n).""",
  235.               LABELS "NONE,OFF,ON,BEST"
  236.         LABEL "Frequency:"
  237.         GROUP HORIZ
  238.           POPSLIDER ID FREQ,
  239.             HELP """Select the frequency UAE will use to\n"||,
  240.                    "mix output (the more, the better [\033ibut\n"||,
  241.                    "the more CPU power is needed too\033n]).""",
  242.             ATTRS MUIA_Slider_Level 11 MUIA_Slider_Min 4 MUIA_Slider_Max 44
  243.           LABEL "KHz"
  244.           SPACE HORIZ
  245.         ENDGROUP
  246.         LABEL "Buffer:"
  247.         GROUP HORIZ
  248.           POPSLIDER ID BUFF,
  249.             HELP """Select the sound buffer size for UAE\n"||,
  250.                    "(the more, the better).""",
  251.             ATTRS MUIA_Slider_Level 2 MUIA_Slider_Min 8 MUIA_Slider_Max 256
  252.           LABEL "Kb"
  253.           SPACE HORIZ
  254.         ENDGROUP
  255.         LABEL "Soundfile:"
  256.         POPASL ID SFILE,
  257.           HELP """\033bEXPERT OPTION\033n: Select the filename UAE\n"||,
  258.                  "will use to output sound."""
  259.       ENDGROUP
  260.       SPACE HORIZ
  261.     ENDGROUP
  262.     /* MISC */
  263.     GROUP
  264.       GROUP HORIZ ATTRS MUIA_Group_Columns 4
  265.         LABEL "FastBlt:"
  266.         CYCLE ID FBLT,
  267.           HELP """When activated, UAE will emulate\na 32bit fast blitter.""",
  268.           LABELS "ON,OFF"
  269.         LABEL "GUI:"
  270.         CYCLE ID GUI,
  271.           HELP """If not enabled, UAE will run without GUI.""",
  272.           LABELS "Enabled,Disabled"
  273.         LABEL "Port 0:"
  274.         CYCLE ID JOY0,
  275.           ATTRS MUIA_Disabled FALSE,
  276.           LABELS "Mouse,Joystick,KeyPad,Arrows"
  277.         LABEL "Port 1:"
  278.         CYCLE ID JOY1,
  279.           ATTRS MUIA_Cycle_Active 1 MUIA_Disabled FALSE,
  280.           LABELS "Mouse,Joystick,KeyPad,Arrows"
  281.       ENDGROUP
  282.       GROUP HORIZ ATTRS MUIA_Group_Columns 2
  283.         LABEL "CPU vs CHIPSET:"
  284.         SLIDER ID CPUR,
  285.             HELP """\033bEXPERT OPTION\033n:\n"||,
  286.                    "1 => More time spent in CPU emulation "||,
  287.                                    "(good for Workbench)\n"||,
  288.                    "4 => Normal CPU vs CHIPSET time ratio\n"||,
  289.                    "8 => More time spent in CHIPSET emulation "||,
  290.                                    "(good for games/demos)""",
  291.             ATTRS MUIA_Slider_Horiz TRUE MUIA_Slider_Level 4,
  292.                   MUIA_Slider_Min 1 MUIA_Slider_Max 16
  293.         LABEL "AutoGrap IFF:"
  294.         POPASL ID SIFF HELP """\033bEXPERT OPTION\033n: Enter here the "||,
  295.                               "filename\nUAE will use to save frames."""
  296.         LABEL "Extra options:"
  297.         STRING ID EXTRA HELP """Write here the extra parameters (see README)\n"||,
  298.                                "you want to pass to UAE."""
  299.       ENDGROUP
  300.     ENDGROUP
  301.   ENDGROUP
  302.  
  303.   SPACE
  304.  
  305.   /* SAVE | USE | CANCEL */
  306.   GROUP HORIZ
  307.     button PRESS HELP """Save current setup and launch UAE""",
  308.       COMMAND """UAEWB.aux save""" LABEL "Save"
  309.     button PRESS HELP """Launch UAE with current settings""",
  310.       COMMAND """UAEWB.aux use""" LABEL "Use"
  311.     button PRESS HELP """Exit without launching UAE""",
  312.       COMMAND "quit" PORT UAEWB LABEL "Cancel"
  313.   ENDGROUP
  314. EndWindow
  315.  
  316. WINDOW ID WAIT CLOSE
  317.  
  318. ENV="ENV:UAEWB"
  319. IF EXISTS(ENV) THEN ADDRESS COMMAND "rx " ENV
  320.  
  321. exit 0
  322.